home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1995 October / EnigmA AMIGA RUN 01 (1995)(G.R. Edizioni)(IT)[!][issue 1995-10][Aminet 7].iso / Enigma Amiga CD / Programmi / Corso_di_Assembler.lha / devs / clipboards / 0 (.txt)
IFF Formatted Text  |  1980-04-05  |  520b  |  18 lines
  1. MOVE.LGFXBASE(PC),A6; GFXBASE IN A6
  2. JSR-$DE(A6); loadview *fix OLD view
  3. JSR-$10E(A6)
  4. JSR-$10E(A6)
  5. lea$dff000,a5
  6. MOVE.L$26(a6),$80(a5); point Sys cop1
  7. MOVE.L$32(a6),$84(a5); point Sys cop2
  8. MOVE.WD0,$88(a5); START COP 1
  9. MOVE.WOLDDMA(PC),$96(A5); RESTORE OLD DMA STATUS 2nd time
  10. JSR-$1CE(A6); LVODisownBlitter - system blit en.
  11. MOVE.LA6,A1
  12. move.l4.w,a6
  13. jsr-$19E(a6); graphics lib closed
  14. EXIT:
  15. movem.l(SP)+,d0-d7/a0-a6; Restore old registers
  16. MOVEQ#0,d0
  17. RTS
  18.